home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Shareware World / Comms & Internet / WebMiner 1.0 / Sample FaceSpan Applications / Internet Dictionary Script < prev    next >
Encoding:
Text File  |  1998-07-26  |  777 b   |  37 lines  |  [TEXT/ttxt]
  1. The "Define Word" button script:
  2.  
  3. on hilited
  4.     local theDoc, theWord, definition, n, done
  5.     
  6.     set theWord to the contents of textbox "DefineWord"
  7.     
  8.     if word is not "" then
  9.         
  10.         tell application "WebMiner"
  11.             set theDoc to open "http://machaut.uchicago.edu/cgi-bin/WEBSTER.sh?WORD=" & theWord without displaying
  12.             repeat while the complete of theDoc is false
  13.             end repeat
  14.             
  15.             set n to 1
  16.             set definition to ""
  17.             set done to false
  18.             
  19.             repeat while done = false
  20.                 try
  21.                     set definition to definition & the contents of paragraph n of theDoc
  22.                 on error
  23.                     set done to true
  24.                 end try
  25.                 set n to n + 1
  26.             end repeat
  27.             close theDoc
  28.         end tell
  29.         
  30.         set textbox "definition" to definition
  31.         set the editable of textbox "definition" to true
  32.         
  33.     end if
  34.     
  35. end hilited
  36.  
  37.